Namespace Actions.ActionItems
    Public Class aiExcelToRs
        Inherits Actions.ActionItem

        Public InputFileName As String = ""

        Public Sub New(ByVal Owner As Action, ByVal Definition As Xml.XmlNode)
            MyBase.New(Owner, Definition)
        End Sub

        Public Overrides Sub Execute()
            InputFileName = Configuration.Attribute("what", InputFileName)
            InputFileName = Owner.InsertParams(InputFileName)

            Dim xls As Excel.Application = ExcelTools.CreateHiddenExcelApp
            xls.Workbooks.Open(InputFileName)
        End Sub
    End Class
End Namespace

